home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
windownt
/
perlnt.zip
/
t
/
op
/
exec.nt
< prev
next >
Wrap
Text File
|
1993-07-25
|
489b
|
18 lines
#!./perl
# $Header: exec.t,v 4.0 91/03/20 01:52:25 lwall Locked $
$| = 1; # flush stdout
print "1..5\n";
print "not ok 2\n" if system "echo ok 1"; # split and directly called
print "not ok 3\n" if system "cmd.exe", "/c", "echo", "ok", "2"; # directly called
if ((system "lskdfj >nul: 2>&1") == 1) {print "ok 3\n";} else {print "not ok 3\n";}
unless (exec "lskdsalksdjfdjfkls") {print "ok 4\n";} else {print "not ok 4\n";}
exec "cmd.exe", "/c", "echo","ok","5";